home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / other / littelcomp / r5 / lc / examples / tutte.l < prev   
Text File  |  2000-02-28  |  372b  |  30 lines
  1. ;
  2.  
  3. #include "littel:macrofunctions/dos_lib.mf"
  4.  
  5. proc main
  6.    var a b
  7.    codestart
  8.    copy 1000 a
  9.    copy 1000000 b
  10.    while b > 1
  11.       select a
  12.       case 100
  13.       case 200
  14.       case 300
  15.       case 400
  16.       case 500
  17.       case 600
  18.       case 700
  19.       case 800
  20.       case 900
  21.       case 1000
  22.          dmf Delay 10
  23.       endselect
  24.       dec b
  25.    endwhile
  26. endproc
  27. end
  28.  
  29.  
  30.